home *** CD-ROM | disk | FTP | other *** search
- object BlackScreen: TBlackScreen
- Left = 403
- Top = 241
- BorderIcons = []
- BorderStyle = bsNone
- Caption = 'TBlackScreen'
- ClientHeight = 537
- ClientWidth = 685
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- KeyPreview = True
- OldCreateOrder = False
- WindowState = wsMaximized
- OnActivate = FormActivate
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- OnMouseMove = FormMouseMove
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 216
- Top = 72
- Width = 473
- Height = 310
- Stretch = True
- OnMouseMove = FormMouseMove
- end
- object Panel1: TPanel
- Left = 272
- Top = 296
- Width = 393
- Height = 129
- BevelWidth = 4
- BorderWidth = 4
- Color = clMaroon
- ParentBackground = False
- TabOrder = 0
- Visible = False
- OnResize = Panel1Resize
- object Label5: TLabel
- Left = 64
- Top = 40
- Width = 265
- Height = 37
- Caption = 'Invalid password!'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -32
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object HintPanel: TPanel
- Left = 264
- Top = 64
- Width = 393
- Height = 169
- BevelOuter = bvNone
- BevelWidth = 2
- Color = clBlack
- TabOrder = 1
- object Shape1: TShape
- Left = 0
- Top = 0
- Width = 393
- Height = 169
- Align = alClient
- Brush.Color = clBtnFace
- Pen.Color = 15580837
- Pen.Width = 2
- end
- object hp: TImage
- Left = 6
- Top = 8
- Width = 32
- Height = 32
- Picture.Data = {<image000.bmp>}
- Transparent = True
- end
- object Label7: TLabel
- Left = 42
- Top = 7
- Width = 263
- Height = 29
- Caption = 'Password is not defined!'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -24
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsUnderline]
- ParentColor = False
- ParentFont = False
- end
- object hp1: TImage
- Left = 16
- Top = 52
- Width = 16
- Height = 16
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Label8: TLabel
- Left = 40
- Top = 50
- Width = 317
- Height = 13
- Caption =
- 'Click the button Login (at the bottom left corner) to get into y' +
- 'our PC.'
- Color = clBtnFace
- ParentColor = False
- end
- object hp2: TImage
- Left = 16
- Top = 76
- Width = 16
- Height = 16
- Picture.Data = {<image002.bmp>}
- Transparent = True
- end
- object Label9: TLabel
- Left = 40
- Top = 74
- Width = 249
- Height = 13
- Caption = 'To define the password follow the instructions below:'
- Color = clBtnFace
- ParentColor = False
- end
- object Label11: TLabel
- Left = 40
- Top = 88
- Width = 242
- Height = 13
- Caption = '- start %PRGTITLE% (see the icon on the desktop);'
- Color = clBtnFace
- ParentColor = False
- end
- object Label10: TLabel
- Left = 40
- Top = 102
- Width = 312
- Height = 13
- Caption =
- '- select the folder Screen Lock in Common Restrictions of the tr' +
- 'ee;'
- Color = clBtnFace
- ParentColor = False
- end
- object Label12: TLabel
- Left = 40
- Top = 116
- Width = 297
- Height = 13
- Caption = '- select the item Screen-lock Password, then enter a password.'
- Color = clBtnFace
- ParentColor = False
- end
- object Label13: TLabel
- Left = 40
- Top = 140
- Width = 317
- Height = 13
- Caption =
- 'This frame will not appear on the screen if you define the passw' +
- 'ord.'
- Color = clBtnFace
- ParentColor = False
- end
- object hp3: TImage
- Left = 16
- Top = 140
- Width = 16
- Height = 16
- Picture.Data = {<image003.bmp>}
- Transparent = True
- end
- end
- object Pnl: TPanel
- Left = 8
- Top = 448
- Width = 161
- Height = 57
- BevelOuter = bvNone
- TabOrder = 2
- object Shape2: TShape
- Left = 0
- Top = 0
- Width = 161
- Height = 57
- Align = alClient
- Brush.Color = clBtnFace
- Pen.Color = 15580837
- Pen.Width = 2
- end
- object Label1: TLabel
- Left = 7
- Top = 6
- Width = 140
- Height = 13
- Caption = 'Password is not defined!'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Password: TEdit
- Left = 6
- Top = 26
- Width = 105
- Height = 21
- CharCase = ecUpperCase
- PasswordChar = '*'
- TabOrder = 0
- end
- object LoginBtn: TButton
- Left = 112
- Top = 25
- Width = 42
- Height = 24
- Cursor = crHandPoint
- BiDiMode = bdLeftToRight
- Caption = '&Login'
- Default = True
- ParentBiDiMode = False
- TabOrder = 1
- OnClick = LoginBtnClick
- end
- end
- object Timer: TTimer
- Enabled = False
- Interval = 100
- OnTimer = TimerTimer
- Left = 600
- Top = 368
- end
- object Timer1: TTimer
- Enabled = False
- OnTimer = Timer1Timer
- Left = 56
- Top = 264
- end
- object Timer2: TTimer
- Interval = 20000
- OnTimer = Timer2Timer
- Left = 80
- Top = 136
- end
- end
-